home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 August / 1993-08.d64 / memory loader (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  19 lines
  1. 1 rem copyright 1993 - compute publications intl ltd - all rights reserved
  2. 2 poke53280,6:poke53281,6:print"[147]"
  3. 5 print"wait 60 seconds...":print"creating memory monitor"
  4. 10 fori=51205 to 51338:read a:ck=ck+a:pokei,a:next
  5. 20 ifck<>16246thenprint"error in data statements":end
  6. 30 forn=0to255:j$=right$("00000"+mid$(str$(256*n),2),5):fork=1to5
  7. 40 poke48896+256*k+n,asc(mid$(j$,k,1)):next:next
  8. 50 forn=0to255:j$=right$("000"+mid$(str$(n),2),3):fork=1to3
  9. 60 poke50176+256*k+n,val(mid$(j$,k,1)):next:next:open8,8,8,"memory monitor"
  10. 70 poke250,0:poke251,192:poke780,250:poke781,138:poke782,200:sys65496
  11. 80 data 120,169,18,141,20,3,169,200,141,21,3,88,96,56,165,51,229,49,133,251,165
  12. 90 data 52,229,50,168,185,0,192,141,0,200,185,0,193,141,1,200,185,0,194,141,2
  13. 100 data 200,185,0,195,141,3,200,185,0,196,141,4,200,24,164,251,185,0,197,109,2
  14. 110 data 200,141,2,200,185,0,198,109,3,200,141,3,200,185,0,199,109,4,200,141,4
  15. 120 data 200,160,5,162,0,134,252,162,0,185,255,199,24,101,252,201,58,144,4,24
  16. 130 data 105,246,232,153,255,3,169,1,153,255,215,136,208,227,76,49,234,120,169
  17. 140 data 49,141,20,3,169,234,141,21,3,88,96
  18. 150 print"activate memory monitor with sys 51205"
  19.